Imports System.Threading
Module Module1
Sub Main(ByVal args As String())
Dim ts As TimeSpan
ts = New TimeSpan(0, 0, 1.5)
Console.WriteLine("Waiting for 1.5 seconds...")
Thread.Sleep(ts) 'Pause for duration specified in ts
ts = New TimeSpan(0, 0, 4)
Console.WriteLine("Waiting for 4 seconds...")
Thread.Sleep(ts) 'Pause for duration specified in ts
End Sub
End Module